Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Alliance.Dxr/00002_Alliance parent.ls

Text File | 1998-03-05 | 5.4 KB | 209 lines

property machineData, timeDate, module, userArea, usedList, soundList, musicStart, musicTime
global currSndVolume, gSep

on new me
  set the userArea of me to [#main: #empty, #assessment: #empty, #tools: #empty, #changes: #empty]
  set the usedList of me to [#assessment: 0, #tools: 0, #changes: 0]
  set the soundList of me to [#assessment: [], #tools: [], #changes: []]
  return me
end

on getMachineDAta me
  if the machineType = 256 then
    set hardware to #IBM
    set gSep to "\"
  else
    set hardware to #Mac
    set gSep to ":"
  end if
  set vSound to the soundLevel
  set vColors to the colorDepth
  set the machineData of me to [#computer: hardware, #oldSound: vSound, #oldColors: vColors]
  set vTime to the short time
  set vDate to the short date
  set the timeDate of me to [#time: vTime, #date: vDate]
end

on setMachine me
  if getProp(the machineData of me, #oldColors) <> 8 then
    if getProp(the machineData of me, #computer) = #IBM then
      alert("Please reset your monitor to 256 colors.")
      quit()
    else
      set the colorDepth to 8
    end if
  end if
  set currSndVolume to 5
  set the soundLevel to currSndVolume
end

on restoreMachine me
  if getProp(the machineData of me, #oldColors) <> 8 then
    if getProp(the machineData of me, #computer) = #Mac then
      set the colorDepth to getProp(the machineData of me, #oldColors)
    end if
  end if
  set the soundLevel to getProp(the machineData of me, #oldSound)
end

on computerType me
  return getProp(the machineData of me, #computer)
end

on setModule me, thisModule
  set the module of me to thisModule
  setProp(the userArea of me, the module of me, #subMenu)
end

on setUserArea me, thisActivity
  setProp(the userArea of me, the module of me, thisActivity)
end

on getUserArea me
  set userLoc to getProp(the userArea of me, the module of me)
  return userLoc
end

on setSoundList me, thisList
  if getProp(the soundList of me, the module of me) = [] then
    setProp(the soundList of me, the module of me, thisList)
  end if
end

on goNarrator me, thisItem
  sound playFile 2, "@/Media/Sound/" & thisItem & ".aif"
end

on diskAudio me, thisItem
  sound playFile 2, "@/Media/Sound/" & thisItem & ".aif"
end

on bkgrdMusic me
  set thisItem to #empty
  case the module of me of
    #main:
      set thisItem to "Track06"
    #assessment:
      case getProp(the userArea of me, #assessment) of
        #subMenu:
          set thisItem to "Track11m"
        #style:
          set thisItem to "Track05"
        #styleForm:
          set thisItem to "Track05"
        #history1:
          set thisItem to "Track10"
        #history2:
          set thisItem to "Track10"
        #reactions1:
          set thisItem to "Track05"
        #resources1:
          set thisItem to "Track12m"
        #resources2:
          set thisItem to "Track12m"
        #resources3:
          set thisItem to "Track12m"
        #fourCorners:
          set thisItem to "Track06"
      end case
    #tools:
      case getProp(the userArea of me, #tools) of
        #subMenu:
          set thisItem to "Track10"
        #race:
          set thisItem to "Track10"
        #raceEnd:
          set thisItem to "Track10"
        #self1:
          set thisItem to "Track05"
        #self2:
          set thisItem to "Track05"
        #self3:
          set thisItem to "Track05"
        #nonpro2:
          set thisItem to "Track11m"
        #chefIntro:
          set thisItem to "Track13r"
        #chefEnd:
          set thisItem to "Track12m"
        #stages1:
          set thisItem to "Track15v"
        #plot:
          set thisItem to "Track11m"
        #paper:
          set thisItem to "Track06"
      end case
    #changes:
      case getProp(the userArea of me, #changes) of
        #subMenu:
          set thisItem to "Track12m"
        #facts:
          set thisItem to "Track02"
        #feelings:
          set thisItem to "Track15v"
        #future2:
          set thisItem to "Track11m"
        #action:
          set thisItem to "Track05"
        #envision:
          set thisItem to "Track10"
      end case
  end case
  if thisItem <> #empty then
    musicSpecs(me, thisItem)
    sound playFile 2, "@/Media/" & thisItem & ".aif"
  end if
end

on musicSpecs me, trackName
  case trackName of
    "Track02":
      set the musicTime of me to 60 * 195
    "Track05":
      set the musicTime of me to 60 * 187
    "Track06":
      set the musicTime of me to 60 * 133
    "Track10":
      set the musicTime of me to 60 * 153
    "Track11m":
      set the musicTime of me to 60 * 601
    "Track12m":
      set the musicTime of me to 60 * 546
    "Track13r":
      set the musicTime of me to 60 * 202
    "Track14r":
      set the musicTime of me to 60 * 140
    "Track15v":
      set the musicTime of me to 60 * 212
  end case
  set the musicStart of me to the ticks
end

on checkMusic me
  if the ticks > (the musicStart of me + the musicTime of me) then
    bkgrdMusic(me)
  end if
end

on activate me
  setProp(the usedList of me, the module of me, 1)
end

on iAmActivated me
  return getProp(the usedList of me, the module of me)
end

on showProperties me
  put "machineData:" && the machineData of me
  put "computerType(gMasterData)... will return #Mac or #IBM"
  put "timeDate:" && the timeDate of me
  put "module:" && the module of me
  put "userArea:" && the userArea of me
  put "soundList:" && the soundList of me
end

on getTimeDate me
  set vDataString to getProp(the timeDate of me, #time) & "    " & getProp(the timeDate of me, #date)
  return vDataString
end